home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
C64
/
E-Education
/
(c)ed4.d64
/
number sequence
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2007-02-04
|
9KB
|
278 lines
1 GOTO910
2 PRINT"x[169][141][169][141]X` [234][255][169][255][133][145]L4[234]x[169]1[141][169][234][141]X`
3 [153]"xSTEPGINPUTSTOPSTEPINPUTONX` (null)(null)STEP(null)INPUTLISTLX(null)xSTEPUINPUTSTOPSTEP(null)INPUTONX`
4 PRINT"xhhh[170]h[168]hhhhhhh[152]H[138]HX`
5 [153]"hhhhhhh`
6 PRINT"[160][255][200][132][251][169][216][133][252] [241][183][138][162][160][255][200][145][251][136][208][251][230][252][202][208][246]`
7 [153]"NEWCLOSE(null)LEFT$>(null)ON(null)LET(null)(null)(null)(null)(null)(null)MID$(null)(null)`
35 IFUW=0THENSYSUU,15
40 POKEUC,0:POKEUN,0:UR$="":UI$="":IFUL=0THENUL=39
45 GETUI$:IFUI$=""THEN45
50 UA=ASC(UI$):UR=LEN(UR$):IFUA=13ANDUR>0THENPOKEUC,1:PRINT" [157]";:GOTO75
55 IFUA=20THENON-(UR=0)GOTO45:UR$=LEFT$(UR$,UR-1):PRINT"[157] [157][157]";:GOTO45
60 IFUR=ULTHEN45
65 GOSUB95:UR$=UR$+UI$:PRINTUI$;:GOTO45
75 FORUI=URTO1STEP-1:IFMID$(UR$,UI,1)=" "THENNEXT
80 UR$=LEFT$(UR$,UI):PRINT:RETURN
95 IFLEN(US$)=0THEN110
100 FORUI=1TOLEN(US$):IFUI$<>MID$(US$,UI,1)THENNEXT:UI$=""
105 RETURN
110 IFUA=46THENRETURN
115 IFUA=32ANDUR<>0THENRETURN
120 IFUA>47ANDUA<58THENRETURN
125 IFUA>64ANDUA<91THENRETURN
130 IFUA<193ORUA>218THENUI$="":RETURN
135 IFPEEK(UT)=UU%THENUI$=CHR$(UA-128)
140 RETURN
155 UZ=0:US$=UJ$:UG$=UK$:UT$=UL$:UP=UJ:UL=UK:PRINT"[147]";:POKEUY,6:POKEUX,6
160 POKEUT,UV%:POKE251,0:POKE252,UF:POKE253,0:POKE254,US/256:SYSUV:SYSUU,15
165 POKEU1,U1%:POKEU2,U2%:POKEU3,U3%-1:POKEU4,U4%:GOTO35
300 REM DERIVED FROM COMMODORE ONTARIO EDUCATIONAL SOFTWARE PROJECT 1983
310 REM PROJECT DIRECTOR: FRANK WINTER
320 REM PROGRAM NAME: NUMBER SEQUENCE
330 REM WRITTEN BY A. JOHNSON
340 REM REVISED BY PETER WAN
350 REM UPDATED BY BILL CUMBERLAND 90
399 :
400 PRINT"[147]":POKEUT,UL%:POKEUY,13:POKEUX,13:POKE646,0
405 PRINT" [201][206][211][212][210][213][195][212][201][207][206][211] [146]
412 [153]" (null)HIS PROGRAM WILL HELP YOU WITH"
414 [153]" NUMBER SEQUENCES. (null)OU HAVE THE CHOICE"
416 [153]" OF FIVE DIFFERENT LEVELS. (null)EVEL ONE"
418 [153]" IS THE EASIEST, AND EACH LEVEL HIGHER"
420 [153]" IS MORE DIFFICULT."
422 [153]" ATNLL YOU HAVE TO DO IS FILL IN THE
424 PRINT" MISSING NUMBERS IN THE SEQUENCE THAT
426 [153]" THE COMPUTER GIVES YOU."
485 [141]820
490 [151]UT,UU%
495 [142]
699 :
700 [143] <YES> SOUND
705 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
710 [151]54296,15:[151]54277,42:[151]54278,250
715 [151]54276,23:[151]54273,23:[151]54272,191
720 [129]T[178]1[164]100:[130]:[151]54276,32:[129]T[178]1[164]200:[130]
725 [151]54296,0:[142]
730 [143] <NO> SOUND
735 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
740 [151]54296,15:[151]54277,18:[151]54278,242
745 [151]54276,33:[151]54273,4:[151]54272,48
750 [129]T[178]1[164]300:[130]:[151]54276,32:[129]T[178]1[164]400:[130]
755 [151]54296,0:[142]
760 [143] <BLIP> SOUND
765 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
770 [151]54296,7:[151]54277,42:[151]54278,250
775 [151]54276,23:[151]54273,23:[151]54272,191
780 [129]T[178]1[164]30:[130]:[151]54276,32:[129]T[178]1[164]50:[130]
785 [151]54296,0:[142]
790 [129]T[178]1[164]500:[130]:[142]
791 [129]T[178]1[164]1000:[130]:[142]
792 [129]T[178]1[164]2000:[130]:[142]
793 [129]T[178]1[164]3000:[130]:[142]
795 [129]T[178]1[164]5000:[130]:[142]
799 :
800 [153]"LOAD";:[151]UT,UU%:[151]UY,0:[151]UX,0:[151]646,5
801 [153]" A TPUG EDUCATIONAL PROGRAM
802 PRINT" FOR C64 COMPUTERS
803 [153]" GRADES 1-3
804 GOSUB791
805 PRINT" [146]";
806 PRINT" [146]";
807 PRINT" [146]";
808 PRINT" NUMBER SEQUENCE [146]";
809 PRINT" [146]";
810 PRINT" [146]";
811 PRINT" [146]":GOSUB792:GOSUB760
812 PRINT" INSTRUCTIONS? Y/N
813 [161]UI$:[139]UI$[179][177]"Y"[175]UI$[179][177]"N"[167]813
814 [139]UI$[178]"Y"[167] [141]400
815 [153]"LOAD AND AWAY WE GO .........":[141]791:[141]700:[141]790
816 [137]1000
820 [141]791:[141]760
823 [151]UN,0:[153][200](UD$,24);" (null)RESS (null)(null)ATNLENVALCLOSEPEEKATN(null) TO CONTINUE WAIT"
825 [161]UI$:[139]UI$[179][177]" "[167]825
830 [142]
835 [141]792:[141]760
837 [151]UN,0:[153][200](UD$,24);" PRESS SPACE BAR TO CONTINUE WAIT"
840 [161]UI$:[139]UI$[179][177]" "[167]840
845 [142]
850 UP[178]UP[170]1:[153]"LOAD"[200](UT$[170]UP$,21);[201](UP$[170]UG$[170][196](UP),18)
855 [153]" --------------------------------------"
860 [139]UH[178]0[167][153][200](UD$,24);[200](UP$,7);"ANSWER, THEN PRESS RETURN"
865 UH[178]0:[153]"":[142]
875 [153][200](UD$,24);" ONE MOMENT PLEASE... ":[142]
900 US[178]1024:U1[178]209:U2[178]210:U3[178]211:U4[178]214:UC[178]204:UB[178]2048:UX[178]53280:UD[178]2064
902 UT[178]53272:UU%[178]21:UL%[178]23:UP%[178]2151:UN[178]198:UY[178]53281:UU[178]2199:UE[178]2087
904 UC$[178][199](155):UV[178]1214:UF[178]196:UV[178]2238
905 UD$[178]"":UP$[178]" "
906 [134]YZ(10)
909 [142]
910 [141]900:[153]"LOAD "
920 [137] 800
1000 [153]"LOAD"UC$;:[140]:[151]UY,0:[151]UX,0
1005 WW$[178]"":[140]:UG$[178]"QUESTION #":SQ$[178]"":UT$[178]" NUMBER SEQUENCE"
1010 S$[178]"":[129]I[178]826[164]857:[135]A:[151]I,A:[130]:UP[178]0
1011 [131]162,128,160,0,132,33,134,34,177,33,73,128,145,33,200,208,247,232
1012 [131]224,132,208,240,96,173,17,232,73,8,141,17,232,96
1200 [153]"LOAD"
1206 [153]WW$" YOU HAVE THE CHOICE OF THE FOLLOWING"
1207 [153]" FIVE LEVELS:"
1215 [153][163]7)" 1 WAIT - STEPS OF ONE"
1225 [153][163]7)" 2 WAIT - STEPS OF TWO"
1235 [153][163]7)" 3 WAIT - STEPS OF FIVE"
1245 [153][163]7)" 4 WAIT - STEPS OF TEN"
1255 [153][163]7)" 5 WAIT - VARIOUS STEPS":[141]760
1300 [153]" WHAT LEVEL DO YOU CHOOSE? ";:US$[178]"12345":UL[178]1:[141]35
1310 XT[178][197](UR$)
1410 TQ[178]0:NR[178]0:[129]ZX[178]1[164]5:UP[178]ZX:UG$[178]" QUESTION #":UP[178]ZX[171]1:[153]"LOAD"
1413 [153]" --------------------------------------"
1415 [145]XT[137]1520,1510,1530,1540,1500
1500 A[178][181]([187](TI)[172]4)[170]1:[145]A[137]1510,1520,1530,1540
1510 IN[178]2:M[178]28:[137]1550
1520 IN[178]1:M[178]82:[137]1550
1530 IN[178]5:M[178]11:[137]1550
1540 IN[178]10:M[178]2
1550 L[178]8:SN[178][181]([187](TI)[172]M)[172]IN[170]10:BS[178]0:[129]CR[178]1[164]10:YZ(CR)[178]0:[130]
1570 BS[178][181]([187](TI)[172]3)[170]2:[129]CR[178]1[164]BS
1580 F[178][181]([187](TI)[172]L)[170]1
1585 [139]YZ(F)[179][177]0[167]1580
1590 YZ(F)[178]1:[130]:[153]WW$"";:[129]CR[178]1[164]L:A$[178]" "
1630 [139]YZ(CR)[178]1[167]A$[178]" TAB(TAB( "
1640 [153]A$;:[130]:[153]WW$"";:[129]CR[178]0[164]L[171]1:A$[178]" "
1670 [139]YZ(CR[170]1)[178]0[167]A$[178][202]([196](SN[170]IN[172]CR),2)
1680 [153]A$SQ$;:[130]:[129]K[178]1[164]3:[153]:[130]
1700 NX$[178]"FIRST":[139]BS[178]1[167]NX$[178]"MISSING"
1710 [129]CC[178]1[164]L:[139]YZ(CC)[178]0[167]1800
1720 [141]760
1730 [153]" WHAT'S THE "NX$" NUMBER ? ";:US$[178]"0123456789":UL[178]2:[141]35
1735 U1%[178][194](U1):U2%[178][194](U2):U3%[178][194](U3):U4%[178][194](U4)
1736 [153][200](UD$,24)UP$
1737 [151]U1,U1%:[151]U2,U2%:[151]U3,U3%:[151]U4,U4%
1740 LE[178][197](UR$):[139]LE[178](CC[171]1)[172]IN[170]SN[167][141]4000:[137]1770
1750 [141]15000
1760 [139]PC[178]8[167]PC[178]0:[137]1730
1765 [141]12000
1770 NX$[178]"NEXT"
1800 WR[178]0:[130]CC:TQ[178]TQ[170]BS
1810 [130]ZX
1910 [139]NR[177][178]TQ[173]2[167][141]28000:[141]16000:[137]3999
2910 [141]28000:[141]29000
3999 [142]
4000 [143] * WIN ROUTINE *
4001 [141]700:[153]WW$""[166](CC[171]1)[172]5)" "
4002 [153]WW$[166](CC[171]1)[172]5)(CC[171]1)[172]IN[170]SNS"
4003 FORCR=1TO4:FORYY=1TO10:NEXT:GOSUB10000:NEXT
4004 QP=INT(RND(TI)*6)+1
4005 ONQPGOTO4006,4059,5200,6200,7200,8200
4006 PRINTS$:PRINT" [167] [165] [167] [167] [165] [207][208]"
4009 PRINT" [167] [165] [167] [167] [165] [160] [165][167]"
4011 PRINT" [167] [165][206][163][205][167] [167] [206][163][205][165][206][163][205][167][206][163][205] [206][163][205] [165][167]"
4013 PRINT" [167] [206][205] [165][207][163][163][167] [167] [165][160] [165][165] [167][167] [167] [207][163][163] [204][186]"
4014 PRINT" [167][206] [205][165][205][164][206][167] [167] [205][164][206][165][205][164][206][167] [167] [205][164][206] [162][162]"
4015 PRINT" [175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]":PRINT:PRINT:GOTO8300
4059 PRINTS$:PRINT" [167][163][163][163][163] [167] [167] [165] [207][208]"
4060 PRINT" [167] [167] [167] [165] [165][167]"
4061 PRINT" [167][192][192][192] [205] [206] [206][163][205] [206][163][205][167] [167] [206][163][205][167][206][163][205] [163][207][163] [165][167]"
4062 PRINT" [167] [214] [165] [207][163][163][167] [167] [207][163][163][167] [167] [165] [204][186]"
4063 PRINT" [167][164][164][164][164] [206][160][205][160][205][164][206] [205][164][206][167] [167] [205][164][206][167] [167] [205][164] [162][162]"
4064 PRINT" [175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]":PRINT:PRINT:GOTO8300
5200 PRINTS$:PRINT" [167][163][163][163][205] [165] [207][208]"
5206 PRINT" [167] [167] [165] [165][167] "
5207 PRINT" [167] [167] [206][163][205] [206][163][205] [206][163][205][167][206][163][205] [163][207][163] [165][167] "
5208 PRINT" [167] [167] [207][163][163] [165][160] [207][163][163][167] [160][167] [165] [204][186] "
5210 PRINT" [167][164][164][164][206] [205][164][206] [205][164][206] [205][164][206][167] [167] [205][164] [162][162] "
5220 PRINT" [175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
5232 PRINT" ":GOTO8300
6200 PRINTS$:PRINT" [206][163][163][205][160] [160][160][160][165] [167] [165] [167] [207][208]"
6206 PRINT" [165] [165] [167] [165] [167] [165][167]"
6207 PRINT" [165] [163][208] [206][163][205] [206][163][205] [206][163][205][165] [167] [165][206][163][205][167][206][163][167] [206] [165][167]"
6208 PRINT" [165] [167] [165][160][167] [165][160][167] [165][160][160][165] [167] [206][205] [165][165][160][167][167] [167][206][205] [204][186]"
6210 PRINT" [205][164][164][206] [205][164][206] [205][164][206] [205][164][206][165] [167][206][160][160][205][165][205][164][206][167] [167] [205] [162][162]"
6220 PRINT" [175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
6232 PRINT" ":GOTO8300
7200 PRINTS$:PRINT" [206][163][163][205][160] [165] [207][208]"
7206 PRINT" [165] [165] [165][167]"
7207 PRINT" [165] [163][208][167][206][163][205] [206][163][205] [163][205] [163][207][163] [165][167]"
7208 PRINT" [165] [167][167] [160] [207][163][163] [206][163][205][165] [165] [204][186]"
7210 PRINT" [205][164][164][206][167] [205][164][206] [205][164][206][165] [205][164] [162][162]"
7220 PRINT" [175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
7232 PRINT" ":GOTO8300
8200 PRINTS$:PRINT" [167] [165] [165] [207][208]"
8206 PRINT" [167] [165] [165] [165][167]"
8207 PRINT" [167] [165] [163][205] [165] [165] [163][207][163] [206][163][205] [206][163][205] [206][163][205] [165][167]"
8208 PRINT" [167] [206][205][160][165][206][163][205][165][165] [165] [165] [165][160][167] [165][160] [165][165][160][167] [204][186]"
8210 PRINT" [167][206][160][160][205][165][205][164][206][165][205][164][206][165] [205][164] [205][164][206] [205][164][206][165][205][164][206] [162][162]"
8220 PRINT" [175][175][175][175][175][175][175][175][175] [165][175][175][175][175][175][175][175][175][175][175][175] [165][175][175][175][175][175][175][175][175]"
8232 PRINT" [205][164][206] [205][164][206]"
8300 GOSUB791:GOSUB860:PRINTS$:FORII=1TO8:PRINT" "UP$,:NEXT:PRINTWW$""
8302 FORII=1TO8:PRINTUP$,:NEXT:PRINTWW$"";:NR=NR+1:RETURN
10000 IFUW=0THENZZ=PEEK(53281):POKE53281,INT(RND(1)*16)
10001 IFUW=0THENFORZ=1TO60:NEXT:POKE53281,ZZ:RETURN
10010 SYS826:RETURN
11279 PRINT:FORX=1TO5:PRINT" [146]":NEXT:GOSUB730
11280 PRINT"[145][145][145] YOU'RE WRONG AGAIN ! [146]":GOSUB835:GOSUB860:RETURN
12000 PRINTWW$"THE RIGHT ANSWER WAS "MID$(STR$((CC-1)*IN+SN),2)
12500 FORX=1TO40
12501 PRINTWW$""SPC((CC-1)*5)" "
12502 PRINTWW$SPC((CC-1)*5)""MID$(STR$((CC-1)*IN+SN),2)
12503 PRINTWW$SPC((CC-1)*5)""MID$(STR$((CC-1)*IN+SN),2)
12508 NEXT:GOSUB835:GOSUB860:PRINTWW$""
12509 FORII=1TO8:PRINT" "UP$:NEXT:PRINTWW$"":RETURN
15000 IFWR=1THENTY=5:GOSUB11279:GOTO15050
15005 PRINT:FORX=1TO5:PRINT" [146]":NEXT:GOSUB730
15008 PRINT"[145][145][145]YOU'RE WRONG -- BUT TRY AGAIN[146]"
15040 GOSUB835:GOSUB860
15050 PRINTWW$"":FORII=1TO14
15051 PRINTUP$:NEXT:PRINTWW$"":IFTY=5THENTY=0:RETURN
15075 WR=WR+1
15095 PC=8
15190 RETURN
15199 :
16000 PRINT"[147] [164][164][164][164][164][164][164][164][164][164][164][164][164]
16005 [153]" CLOSE(null) CLOSEFN THEN (null)
16010 PRINT" [206][160][160] [212] [217] [205]
16015 [153]" (null) CLOSE CHR$ LEFT$ (null)
16020 PRINT" [206] [194] [221] [205]
16025 [153]"CLOSE (null) (null)CLOSEPEEK (null)
16030 PRINT" [167] [200] [199] [165]
16035 [153]" (null) (null)CLOSE(null) (null)
16040 PRINT" [200][164][210][198][192][195][195][195][192][198][210][186][160][204][210][198][192][195][195][195][192][198][210][164][199]
16045 [153]" (null)ANDPOSNEWFREUSRUSRUSRFREWAITNEWPOSANDTAB(ANDPOSNEWFREUSRUSRUSRFREWAITNEWPOSAND(null)
16050 PRINT" [206][165] [146] [146][167][205]
16055 [153]" (null) FN WAIT WAITTHEN (null)
16060 PRINT" [206] [165] [146] [146][167] [205]
16065 [153]" (null) (null)USRFRENEWPOSANDANDANDPOSNEWWAITFRETOCLOSETOFRENEWPOSANDANDANDPOSNEWWAITFREUSR(null) (null)
16070 PRINT"[160] [165] [207][197][196][195][192][192][192][195][196][197][167][160][165][197][196][195][192][192][192][195][196][197][208] [167]
16075 [153]" FN FN CLOSE(null)TO(null) THEN THEN
16080 PRINT"[160] [165] [205] [169][146][207] [146][208][223][146][160] [206] [167]
16085 [153]" FN (null) (null) WAITFN WAITTHEN WAIT(null) (null) THEN
16090 PRINT" [165] [160] [160] [205] [169][146][165][160][146][165] [146][167][160][146][167][223][146] [206] [167]
16095 [153]" (null) CLOSE CLOSE FN (null)CLOSEWAITFNCLOSEWAITFN WAITTHENCLOSEWAITTHENCLOSEWAIT(null) THEN (null)
16100 PRINT"[167][160] [160] [160] [165] [169][146][165][160][146][165][160][146][165][160][146][167][160][146][167] [146][167][223][146] [167] [165]
16105 [153]"THEN FN TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB( THEN FN
16110 PRINT"[167] [205][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][206][160] [165]
16115 [153]"CLOSE(null)TOANDPOSNEWFREUSRTAB(CLOSE TAB(TAB(TAB(USRFREWAITNEWPOSANDTO(null)CLOSE
16120 PRINT" DARTH VADER CONGRATULATES YOU!"
16124 GOTO16140
16128 FO=2000
16133 FO=FO/1.5:FORI=0TOFO:NEXT:GOSUB10000:IFFO>0THEN16133
16138 PRINT"[147]":GOSUB10000:GOSUB10000:RETURN
16140 FORFO=1TO70:FORAK=1TO10:NEXT:GOSUB10000:NEXT
16150 FORU=1TO20:PRINT"[142]";:GOSUB10000:NEXT
16155 PRINT"[147] [217]OU HAVE A CHOICE:
16160 [153]" (null)RESS (null) WAIT TO PLAY AGAIN.
16165 PRINT" [208]RESS M [146] TO RETURN TO THE [205][197][206][213]
16170 [161]R$:[139]R$[179][177]"P"[175]R$[179][177]"M"[167]16170
16175 [139]R$[178]"P"[167][140]:[137]1000
16182 [153]"LOAD RETURNING TO THE MAIN MENU
16184 LOAD"MENU",8
16186 RUN
16188 END
28000 PRINT"[147]"
28050 PRINT" YOU GOT"NR"OUT OF"TQ"BLANKS RIGHT!":GOSUB835
28080 RETURN
29000 PRINT"[147] BETTER LUCK NEXT TIME!!":GOSUB835
29010 RETURN
30000 REM WHC 90:11:29